home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 376-400 / disk_386 / xlispstat / src1.lzh / Headers / xlvar.h < prev   
C/C++ Source or Header  |  1990-05-04  |  4KB  |  115 lines
  1. #ifndef XLVAR_H
  2. #define XLVAR_H
  3.  
  4. /* from xlglob.c */
  5. /* symbols */
  6. extern LVAL true,obarray;
  7. extern LVAL s_unbound,s_dot;
  8. extern LVAL s_quote,s_function;
  9. extern LVAL s_bquote,s_comma,s_comat;
  10. extern LVAL s_evalhook,s_applyhook,s_tracelist;
  11. extern LVAL s_lambda,s_macro;
  12. extern LVAL s_stdin,s_stdout,s_stderr,s_debugio,s_traceout;
  13. extern LVAL s_rtable;
  14. extern LVAL s_tracenable,s_tlimit,s_breakenable;
  15. extern LVAL s_setf,s_car,s_cdr,s_nth,s_aref,s_get;
  16. extern LVAL s_svalue,s_sfunction,s_splist;
  17. extern LVAL s_eql,s_gcflag,s_gchook;
  18. extern LVAL s_ifmt,s_ffmt;
  19. extern LVAL s_1plus,s_2plus,s_3plus;
  20. extern LVAL s_1star,s_2star,s_3star;
  21. extern LVAL s_minus,s_printcase;
  22.  
  23. /* keywords */
  24. extern LVAL k_test,k_tnot;
  25. extern LVAL k_wspace,k_const,k_nmacro,k_tmacro;
  26. extern LVAL k_sescape,k_mescape;
  27. extern LVAL k_direction,k_input,k_output;
  28. extern LVAL k_start,k_end,k_1start,k_1end;
  29. extern LVAL k_2start,k_2end,k_count,k_key;
  30. extern LVAL k_verbose,k_print;
  31. extern LVAL k_upcase,k_downcase;
  32.  
  33. /* lambda list keywords */
  34. extern LVAL lk_optional,lk_rest,lk_key,lk_aux;
  35. extern LVAL lk_allow_other_keys;
  36.  
  37. /* type names */
  38. extern LVAL a_subr,a_fsubr;
  39. extern LVAL a_cons,a_symbol,a_fixnum,a_flonum;
  40. extern LVAL a_string,a_object,a_stream,a_vector;
  41. extern LVAL a_closure,a_char,a_ustream;
  42. extern LVAL a_complex;         /* L. Tierney */
  43. extern LVAL a_array;           /* L. Tierney */
  44.  
  45. /* evaluation variables */
  46. extern LVAL **xlstack,**xlstkbase,**xlstktop;
  47. extern LVAL xlenv,xlfenv,xldenv;
  48.  
  49. /* argument stack */
  50. extern LVAL *xlargstkbase;    /* argument stack base */
  51. extern LVAL *xlargstktop;    /* argument stack top */
  52. extern LVAL *xlfp;        /* argument frame pointer */
  53. extern LVAL *xlsp;        /* argument stack pointer */
  54. extern LVAL *xlargv;        /* current argument vector */
  55. extern int xlargc;            /* current argument count */
  56.  
  57. /* exception handling variables */
  58. extern CONTEXT *xlcontext;    /* current exception handler */
  59. extern CONTEXT *xltarget;    /* target context (for xljump) */
  60. extern LVAL xlvalue;        /* exception value (for xljump) */
  61. extern int xlmask;            /* exception type (for xljump) */
  62.  
  63. /* debugging variables */
  64. extern int xldebug;        /* debug level */
  65. extern int xlsample;        /* control character sample rate */
  66. extern int xltrcindent;        /* trace indent level */
  67.  
  68. /* gensym variables */
  69. extern char gsprefix[];      /* gensym prefix string */
  70. extern int gsnumber;        /* gensym number */
  71.  
  72. /* i/o variables */
  73. extern int xlfsize;        /* flat size of current print call */
  74. extern FILE *tfp;        /* transcript file pointer */
  75.  
  76. /* general purpose string buffer */
  77. extern char buf[];
  78.  
  79.  
  80. /* from xlinit.c */
  81. extern LVAL true,s_dot,s_unbound;
  82. extern LVAL s_quote,s_function,s_bquote,s_comma,s_comat;
  83. extern LVAL s_lambda,s_macro;
  84. extern LVAL s_stdin,s_stdout,s_stderr,s_debugio,s_traceout;
  85. extern LVAL s_evalhook,s_applyhook,s_tracelist;
  86. extern LVAL s_tracenable,s_tlimit,s_breakenable;
  87. extern LVAL s_setf,s_car,s_cdr,s_nth,s_aref,s_get,s_eql;
  88. extern LVAL s_svalue,s_sfunction,s_splist;
  89. extern LVAL s_rtable,k_wspace,k_const,k_nmacro,k_tmacro;
  90. extern LVAL k_sescape,k_mescape;
  91. extern LVAL s_ifmt,s_ffmt,s_printcase;
  92. extern LVAL s_1plus,s_2plus,s_3plus,s_1star,s_2star,s_3star,s_minus;
  93. extern LVAL k_test,k_tnot;
  94. extern LVAL k_direction,k_input,k_output;
  95. extern LVAL k_start,k_end,k_1start,k_1end,k_2start,k_2end;
  96. extern LVAL k_verbose,k_print,k_count,k_key,k_upcase,k_downcase;
  97. extern LVAL lk_optional,lk_rest,lk_key,lk_aux,lk_allow_other_keys;
  98. extern LVAL a_subr,a_fsubr,a_cons,a_symbol;
  99. extern LVAL a_fixnum,a_flonum,a_string,a_stream,a_object;
  100. extern LVAL a_vector,a_closure,a_char,a_ustream;
  101. extern LVAL a_complex;      /* L. Tierney */
  102. extern LVAL a_array;        /* L. Tierney */
  103. extern LVAL s_gcflag,s_gchook;
  104. extern FUNDEF funtab[];
  105.  
  106.  
  107. /* external variables from xlimage.c */
  108. extern LVAL obarray,xlenv,xlfenv,xldenv;
  109. extern long nnodes,nfree,total;
  110. extern int anodes,nsegs,gccalls;
  111. extern struct segment *segs,*lastseg,*fixseg,*charseg;
  112. extern CONTEXT *xlcontext;
  113. extern LVAL fnodes;
  114.  
  115. #endif XLVAR_H